home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / pgvw174.zip / RSB5CHAT.MRG < prev   
Text File  |  1992-06-22  |  967b  |  21 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce NEW\RSB5CHAT.BAS
  3. * RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 06-22-1992 11:38:11 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 20247 CALL ViewStat ("G")                                            ' DR062201
  8.       ZWasDF = 0
  9.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  10.       IF ZAutoDownInProgress THEN _
  11.          ZUserIn$(ZAnsIndex) = WasX$ + "." + Extension$ : _
  12.          ZOutTxt$ = "Transferring -- " + _
  13.               ZUserIn$(ZAnsIndex) : _
  14.          GOSUB 21640 : _
  15.          IF ZFileSysParm > 1 THEN _
  16.             RETURN
  17.       IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.LZH.ARJ.","."+Extension$+".") > 2 OR _
  18.          MID$(Extension$,2,1) = "Q" OR _
  19.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  20.             ZWasDF = ZTrue
  21.